home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE18 / SURVIVE / PASSINT.PAS < prev    next >
Pascal/Delphi Source File  |  1996-12-06  |  544b  |  23 lines
  1. unit PassInt;
  2.  
  3. interface
  4.  
  5. const
  6.   cpSuccess = 0;
  7.   cpErrorChangingPassword = 1;
  8.   cpSamePassword = 2;
  9.   cpUnknown = 999;
  10.  
  11. function ChangePassword(AliasName    : PChar;
  12.                         ServerName   : PChar;
  13.                         DatabaseName : PChar;
  14.                         UserName     : PChar;
  15.                         OldPassword  : PChar;
  16.                         NewPassword  : PChar;
  17.                         var ErrMsg   : PChar): Word;
  18.                         external 'PASSWORD.DLL';
  19.  
  20. implementation
  21.  
  22. end.
  23.